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VOP EQU 64 OPEN 
"Ci EQU 128 CLOSE 
SPACE 6 
¥ SET EXT AND DATA STATEMENT TO THE TIDB SYMBOLIC NAME 
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DATA TEBTCOA CTACT/CTIDB-CONTROLLER ACTIVE/TIDB ABBR 
DATA VTCTED CTADNC - CTBL END PLUS ONE 
& SET DATA STMT TO SUM OF EQUATE VALUES FOR VALID OFP-CODES 
DATA VRD+VWTFt#VWE+VPF U+VOP4VCL CTOPM - OP-CODE MASK 
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DATA 0 CTRQBK 
DATA 0 CTRTRY 
EXT 7wATCOA 
DATA xsATCOA CTDYAD 
DATA 0 CTIOA ( 
DATA 0 CTETAaT L 
DATA 0 CTEICE if) 
DATA 0 CTFCE i 
DATA 0 CTHWDS I 
DATA 0 CTFRCT/SCTFREG 4 
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® FUNCTION PROCESSOR ADDRESS FOR TTY TCM ie 
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000027 A e¢S7 TBATSK EQU 23 TIDE LOC. OF ACTIVATING TASK ee 
Oo00030 A e88 TBRSE EQU 24 TASK ERROR CODE CREME ED 
o00031 A e89 TESI2Z SET es TASK SIZE V2 KKK ERD 
on0032 A 290 TBNUCL SET e6 TASK NUCLEUS FLAGS Ve eM Re 
O00032e A e9i TEKEY SET 26 TASK MAP KEY V2 EHEC ES 
000033 A 292 TEMIMG SET e7 TASK MAP IMAGE ADDRESS Yo eR ER RRR 
000034 A e333 TEIST SET es TASK INTERRUPT rat as ve ee Ee 
294 EJEC eERKHEO HM 
oO Ett Litt tittle ited tat tt tte ett PELE LEE EES ES SESE RESET ES ESS CSE Pee cece ee ees; 
e396 * KEERES ERE 
C97 RHR TASK STATUS DESCRIPTION CBIT SET WORD 1) ERR REE HH 
eo3s ® SKE ES * 
CIF RECKKRAKKKKRERAKKKKKCKRKKARKREAKKSEKKKRKKKKREKSEKREKRKKKSAAKRAKRAKEKRMA KR EKER REKKEK EAR SEEKER 
000017 A 301 TBS15 Eu 15 INTERRUFT SUSPEND CRAKE RS HS 
000016 A 303 TBSi4 EAU i4 TASK SUSPEND +O Hw 
ongo15S «4 204 TBS$1i3 EQU. 1 3. TASK ABORT CKKEER EK 
000014 A 305 TBSi2@ EAU le TASK EXIT Tce e. Ss 
000013 A 207 TFRS11 EQU it TIDE CORE RESIDENT ee ecee eS: 
OON001e A 308 TBSi10 EQU id CORE RESIDENT TASK CREE EK 
ODOHoO011 A 309 TBS9 EQU 9 race Beare TASK <eKE Se OH 
On0010 A 211 TESS EQU $ TASK FROTECTED cece e 2s S| 
o00007 A s1i2 TES? EQU Fs TASK .SCHEDULED BY TIME DELAY eRe ESM EE 
onag006 & 3212 TES6 EQuU 6 TIME DELAY RACTIVE CHEROKEE 
on0005 A s1i5 TESS EQuU = TASK WAITING TO BE LOADED eee ee ee 
oH0004 A 316 TBS4 EQU 4 TASK ERROR KEKE EES 
000003 A 31? TBSs EQu 3 TASK INTERRUPT EXPECTED ER EREES 
000002 A 313 TESe2 EQU 2 OVERLAY TASK eee SEK Ee 
po00n0g1t & 220 TBS31 EQU i UPON TERMINATION ACTIVATE TASK SCHEB TASK ce ee ee ee 
oo0000 A 321 TESO EQU 0 TASK SEARCH-ALLOCATED-LOADED SSREEKR SE 
sec EJEC creer. 2: 
323 KEMRERERRAK ER RRREKERERKRMARERME RAKE KKKKRKKR EK KAEKK EK EKEM KE KEK RRR EKER KRM EKER ERE OH HOH 
32¢¢ *® ce eecreee: 
325 REX TASK STATUS DESCRIPTION cCBIT SET WORD 2) C¥KRKRHRBRE EG Ese 
326 * ce ecee eS 
. 327 KRRERARKAE KREMER MERE REM EEE EERE ER HEE RE ERE EE EE ERE EERE EERE RARE OK ERKRE KHOR ES 
329 *® BIT 15 — TASK OPENED CREE EK 
331 ® EIT 14 - UNUSED TL ere ee 
33c ® BIT 13 - QDVERLAY LOAD RERRER ED 
333 ® BIT le - TASK WAITING FOR FPACKGROUND TASK I/70 TO COMPLETE LEEK EH © 
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338 ® ALLOCATING TASK AGAIN. OVERRIDES BIT te SET OF ERR OR 
339 # BIT 5S IN STATUS WORD. HCH EREH EH 
340 # EIT 19 ~ BACKGROUND TASK BEING WRITTEN ON CHECKPOINT FILE. TERA 
241 *# EIT 9 - TASK WAITING FOR & TIDB TO COME AVAILABLE FOR SERRA ERA 
2742 *® SCHEDULING. CHER EE SE 
244 ® BIT 8 TO 6 - UNUSED C# OHO 4 0 EH 
2345 EC 2 Oe ee oe 
346 ERMAN EME ERE KR ERE CEE EE EE EEE MEER RES ERE ERO EERE EEE KERER EKER EERE SR HG OBOE 
347 * ke eR HE 
343 MRM JOB PROCESSOR LOW CORE E@BUATES KAAS HS EES 4 
349 # CHR E WH EH 
350 AERXRERMRKRRSRERKRRARKRAKREREKRKE KERR K KEKE KEKE REE KEK ERE EEE EEX EES EREREEECKREM EH HX ED EY 
000030 A 359e LCOJP EQU OSG ee ee 
000050 A 353 ¥SJNAM EQU LC JP JCP NAME + ee eH 
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000055 & 355 ¥SJCFG EQU LCJP¢+5 JCF FLAGS ee ee 
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36/7 # BIT 0 = SYSTEM NOMINAL KEYPUNCH MOBE. #2 ee ee 
36co # FIT 9 = CURRENT JOB KEYFUNCH MODE. CRS SR 
Oo00077 A ae i YVSJICTM ae LC JP+23 TEMP. STORAGE FOR “MEM ELOCE a we 
Po JEG a ee 
So] EXERMEMARKEKRAKRKEKRKRKKRRCKCRK RK KKK KRENEK KERR EE OEE ee oe ee 
372 ® ee x Ye ee KOE 
373 MRR LOW CORE DESCRIPTION Teter ee se 
374 8 ee ee ee ee ge 
| 3275 SEMA MRK KKRRKRERKR RRS SRK ERE KES ERKCRE RECESS EERRSERAECEEE ERE CER RK ee 
000300 A 377 LC EQU 0300 KR KOK EE 
000300 A 378 VSCTL EQU LC CURRENT TASK TIBB LOCATION eM a 
O00301 A 379 VSCPL EQU LC+1 CURRENT PRIORITY LEVEL eS ee 
OO0302 A 380 ¥VSCRS EQU LO+e2 CURRENT REENTRANT STACK POINTER #2 Se OE 
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000306 A 384 VSFLRS EQU LC+6 FIRST LOC. OF REENTRAHT STACK EEA SES 
No00307 A 385 VSLRSK EQU LO+? LAST LOC. OF REENTRANT STACK+]) a 
000310 A 386 VSCKPT EQU LC+3 CHECKPOINT FLAG 1=0Hs O=DFF KX S AS eS 
Qo0o03i1 A 397 ¥SOPCL EQU LC+9 LOC, OF TIDB FOR ORPECOM TAEK Ok Re ak 
000312 A 388 ¥VSLSAL EQU- L¢e+10 Loc OF TIDB FOR SYSTEM SAL TASK . Hee Se ee 
000313 A 389 VSLER EQU LCi LOC. OF TIDB FOR SYSTEM ERROR TASK ee a ee ae 
000314 A 330 ¥STJCP EQU Lt+i¢ LOC. OF TIDB FOR JOB CONTROL PROCESSOR TaSK#*#* oe" 4% 
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56 A 3s ORwH LSCoOnN OF IN GF “DBE 3 
? A 33 STA LZHIFT wo UEE AS EXECUTE OPERANHD 03 
4 Ff 94 LDw# PBIT Load ge a BIT LOCHTION O03 
: | 91 Dra r= CQH Or IH OF CORE 3 
5 A 92 5s 7TA PSHIFT AND wse AS EXE! OPERANT 03 
o A 33 LDA SPee PFELOGD FIELE & te 03 
ob 6 me GR ETM er IM OF CODE 03 
1 # $5 STA NZEHIFT MSE AS AASeE SHIFT 03 
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E-YTAM BITSET PROGRAM PAGE e LISTING PAGE ¢ e208) 


96 EJEC u3 00036 
G7 RAKKAHRAKRARAKRKR AMAR REE RRKEAEMRKE EEER EMER ER EK RMR AAR RMR EER RRR EH 13 qaqga? 
$98 ® SETUP BIT MASKs RIGHT JUSTIFIED ¢@®MSIZED-1 * ns gonoasS 
99 NR enon teed RNUERSREAE SSRN ANNE RAO ORERMREREES v3 oooss 
COO0045 010421 A 100 Ci LOAD SINGLE BIT os oguiddo 
6000046 000000 A 101 MSHIFT bara 0 SHIFT LEFT BY WIDTH 03 0101 
000047 O05311 RA ide CR Oil MINUS ONE as uoineg 
000050 001016 A 103 NAN STMASK SKIP IF MASK IS NOT NULL O03 aQ0102 
N800051 000053 R 
000052 010461 & 104 LDA ONES ELSE PICK UP SPECIAL ALL ONES MASK 03 ovoingd 
000053 o54054 A 105 STMASK STA MASK SAVE AS MASK NS 00105 
1) 7 IRE ee 2 222 RRR DD ON LO 2 
igs @ DRIENT SOURCE WORD TO PROPER FORM * 03 GO108 
10 3 BAH ee 900 ee ee REM RRR OC 169 
CO005S4 014040 A 110 LDA SRC PICK UP SOURCE WORD 03 o0116 
000055 003020 A } ii XBZ RSHIFT IF FETCHs SHIFT RIGHT 03 ocilii 
000056 anole? R 
Q000587 15409050 A lie ANA MASK MASK OUT EXTRA BITS 03 O8112 
000060 054034 A 113 STA SRC SAYE RESULT O03 oOoL113 
O00061 O01020 FA ii4 JBZ MAIO1O SKIP IF FETCH CASE o3 oo1id4d 
p00062 000074 R | 
000063 HORB000 A 115 xEC LSHIFT SHIFT SOURCE INTO PLACE 03 g01i15 
000064 HoOOies R 
000065 054027 «a 116 ST SRC SAVE SHIFTED RESULT o3 80116 
11 9 He 0 ne Ee 2 2 2 OEE EME OS 11s 
119 ™ SETUP INVERSE MASK ON STORE CASE * 03 00115 
120 KRM KERR EER MAREE EER EEK OS NOLS 
000066 014041 4 121 LDA - MASK PICK UP MASK 03 00121 
000067 O03000 A 122 ZEC LSHIFT SHIFT LEFT INTO FLACE Os 0122 
P00070 On012esS R 
000071 O05211 A ie3 COMPL uid INVERT ALL BITS G2 o01es 
0900072 001000 A ie4 JMF MATOe2O SKIP TO MASK DATA WORD 63 O01e4 
NO0073 OOnNO07r5 R 
125 EJEC O03 g0125 
1e@6 REMERRMRERRSKREAAEKERKRERAKKRRRKMRKARAHER KE AKSEKRHEAKEKRKKRKKREKKRSKRKRKKREKRRSEKREKEK SHEE ED US Ooorves 
icy’ *® ON FETCH CASEs INVERSE WASK IS ALL ZERD * 03S OoOLer 
125 RMKKAMKKAER ARR AR EERE RE MEER EE ERE KERR REEDED ERK EERE RARER ME ERMRH OD GCL ES 
000074 B05S001 A 129 MAIO1O ZERO A SET MASK TO NULL O03 ovieg? 
131% 9 He ee OO RRR KREME RESO R OS 1 Zi 
i32 *® NOW MASK QUT DESTINATION AND OR IN SOURCE * U3 GO01Lse2 
1 SB 5 Te RE RE ee 2 EE EKER CREME OD OTL aS 
000075 o034014 A 134 MAITONOe2O LOK DEST LOAD DESTINATION ADDRESS Os Ob 1324 
000076 155000 A 135 ANA O+X MASK OFF FREVIQUS FIELD CONTENTS 03 00135 
O0007/f 114015 &A 136 ORA SRC OR IN NEW DATA OS o0136 
COO01i00 OS5S5000 4 ia STA Osi AHD RESTORE O03 O013/ 
139 BRKRKEKAER RARER RMR RAK AREER ERE RRR RRR ERR SEEKERS REARS RRKERSERARRRRESE SE 3 GCOS 
140 #® ALL DONEs RETURN TO CALLER * O35 gOoi4o 
1 1 ee OE EE EEE ENEMA H CS COL dd 
000101 001000 A ide2 JMP 0 RESTORE REG P OS OO0ide 
H900102 000000 A | 
g00102 R 143 SAVEP EQU x—] OS G83 
144 EJEC 03S OoO14d4 
145 MMM ERM EAE REE EEE EEE EEE EEE RRA AR EME KR OF FOLKS 
1465 * THIS CODE SETS UP FOR EXECUTION BY CALLING SSE * 02 O0146 
Ld 7 RERRAMREM ERE EKA EEE REM EAREE EEE ETE REE ERE EE ES ERE RRERERERRAREEREREH OS FO LAS 
0001083 054002 A 143 SETUP STA SETO10 SAVE PARAMETER ADDRESS hn? ooi46 
QO0104 On1i000 A 149 MP SETOe20 SEKEIP OVER CONSTANT Os oof 4% 
000105 O0O0107 R 
0900106 00600000 A 150 SETO10O DATA 0 PARAMETER LIST ADDRESS 03 g07250 
0900107 OdbeDOGO A 151 SETOeO JIMFM SSE RPESOLYE INDIRECT ALDPESSE® os u0 151 
OGG110 ONO00H00 E 
OO0111 an00004 «A ise DATA 4 FOUR PARAMETERS G3 GO1Se2 
0900112 00000 & 153 DEST DATA Ul DEZTINATION ADDRES: Pe 86252 
080113 000000 «4 154 LBIT DATA fl LERT BIT IN FIELLE ie WoL a4 
NOQ11i4d4 OO0000 -«€ i5SS REIT DATA 0 FIGHT EIT IN FIELD GS @O01L55 
CBO0115 ON0000 -# 156 SRC TATA Qi =OURCE WORD ADDRES: fi @01568 
HHO01iis R L5>r SiZe EGu LBIT Gas Be Se 
900116 OQ06017 A 15s LDAE SETO190 LOAT ADIVETED RETURN SOBRESS G3 OOLSE 
QHOO1l1? OHNDOLHS R 
000120 006057 «A 159 STAE SAVEP AND TAYE IW RETURN CELL 03 O015%9 
NO01e21l O00102 FR 
O00l2ee@ ON1000 FA 160 JMP MAIN EFRANCH TO MAINLINE GS ogo1.60 
000123 O000i4 R 
161 EJEC CS O0i6i1 
16e2 REMERDRERARARSEKRAKRMRASLRARMRKRKRERAMRHRAKRSEKEKRERKSERKKREKRE KH EER KE KMS KER EK ERK MR KK RMR fy 3 HULb6c 
l63 * CONSTANTS AND WORK AREAS * 03 60163 
1G 4 He MMC EEE EEN SE EMEC ERE RAE ARAMA REM OD Oise 
000001 A 165 A EQU 1 EWUATE FOR A REGISTER a3 00165 
000002 A 166 B EAU c EWUATE FOR B REGISTER O53 DOLEE 
ono0go1 167 & EQU 1 EGUATE FOR & REGISTER oS O06 
000124 O042e40 A 168 LSCON LRFRLA ty) 2HIFT LEFT @P COBE CONSTANT o3 Ano1res 
000125 004300 & 169 RSCON ASRA 1) SHIFT RIGHT OF CODE CONSTANT 02 dgutes 
000126 9000000 & 170 LSHIFT DATA a GENERAL SHIFT LEFT O23 ogGL7h 
0001le? 000000 A i?1 RSHIFT DATA iW GENERAL SHIFT RIGHT GS Gos 1 
O000130 000000 A 172 MASK DATA 0 MASK CELL 02 GO17e 
OO0d21 A i723 Ct EQUI o¢el LOW-CORE CONSTANT ONE O33 O17 
O00472 4 i744 Cis EQUI i4re LOW-CORE CONETSANT ir is noice 
novo4ds¢61 A i775 ONES Emu O¢6 1 LOW-CORE CONSTANT O8iLF7P PP G3 dL ?7S 
irs EWIEC O35 Hn1P?rs 
NAME YSGET SET NAME OF ENTRY FOINT 0S O07 
17? 9 RRRRSMHRKAEK RAHEEM MERE MEME Cee FRR REC KRRKEKEKRHCESKREKENRRRREN ERR ERE ME RE ns oof 
iso *® * o2 ofi80 
181 ® TITLE —- ROUTINE TO FETCH LON-CORE JOR INFORMSTION * O03 AISI 
i§fe2¢ * | * O63 oo0182 
183 ® PURPOSE - TO ALLOW ACCESS TO LOW-CORE LINE COUNTs JOB NOME; * 03 ODO18s 
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BITSET PROGRAM PAGE 3 LISTING PAGE ¢ eg) 
ié4 * AND CURRENT DATE. x Of 
iss * is 
186 ™® CALLING SEQUENCE - * tS 
1s7/ *® INTEGER WORKC 93 x NS 
ae CALL SYSGETCWORK > * 3 

baa] 7 * 1% 
190 * ENTRANCE PARAMETERE - * es 
i931 * NAME OF NINE-WORD VECTOR IN FOLLOWING FORMAT - * us 
132 # 1 WSDATE 4 VSDATE+ ? VSJINAM+2 mw 3 
lzvs #® e ¥SDATE+1 5S VSsJINAaAM 8 VSJINAM4 3 *# a3 
oe - 3 VSTDATE+2 &e VSINAMe i 9 VSLCNT * oO3 
Pam ® & 3 
pee : ERROR CONDITIONS - NONE. * a3 

7 ¥ 2 
19S FRR EKRKSKKR KERR EMRE MERE HEE EE Ee eR ee OO OO OK OE x Wa 
A oe ee Cee EEL ESSE PSP PSS Ce Pe SEE PEL Se. LS 2 8 oe oe See 
eO0i * SETUP FOR LOOP * OS 
CHC ARERR RAAT eA RR RRA OF 
203 S¥310 LUA SYSV¥VCT PICK UP OQUTFUT VECTOR ADDRESS o3 
et4 ADD FOUR POINT TO FIFTH WORD 03 
205 TAB PLACE IN B REGISTER 03 
206 LOD FOUR PICK WP ECBUNHT ee: 
COR MRK AEE CERES RRR RR OS 
coO9 & ENTER WORD MOVE LOOP FOR FIVE ITERPATIGHNE * 03 
BOQ» L000 L000 EF tect e et eee eee EE ES SSE TS Se SS CSS SE Pee eee Cec eee CP ee ee eee ee ee 
fe©1i S$Y¥se20 LDA VERDATE wrs LOAD ELEMENT OF DATE ee 
ele STA Os Bb =TOW IH OUTPUT VERTOR bs 
213 LDA Ve JNAMs & LOAD ELEMENT OF NAME (3 
eid STA 4;B5 STOW IN GUTFEFUT VECTOR vs 
215 DBR BHOK UP QUTFUT POINTER 3 
celeé DECR G45 DECREMENT COUNT AND COPY TO Aa REGISTER 3 
ei? JAF s¥S20 COHTINUE WHILE REG A IE NON-NEGATIVE ee 
eis JMP 0 ELSE RETURN TO CALLER o3 
coh MAREN AKER ERE MES Ee ee ee OO eR 7 9 
cel ® MAASOR ENTRY POINT IS HERE * US 
CES PRHKKRRRRE TERRE AREER EEE HERKEN RK E EER EERE MRE EMRE KERR MERE MR 1S 
ees SYSGET Eaht ne | CALL ENTRY POINT 03 
ec 4 CALL S$5Es] FEZOLVYE INDIFECT THREAR a3 
ee5 SYSVCT BSL { AUTRES: OF OUTPUT ¥VEETOR 3 
e26 JMF s7¥3$190 JURE TH SETUP LOD u3 
CER MEER RRA EER ETE ERR ERE EH yt 
ceo ® LOW-CORE EQUATE: * D3 
CID KREMER KEK MKM ERR ERK KEK AK EKER KERR TERE RK EERE EER ERK OS 
esi VSDATE Eau O79 Poet eg OF PATE VECTOR ie: 
e2e VEINAM EQU 056 LOCATION OF JOB NAME VECTOR 03 
233 Y¥$LCNT ERQU 654 LOCATION OF LINE COUNT a3 
es4¢ FOUR EG Ll O4e3 LUCATION OF COHMSTANRT FOLR G3 
236 END 02 
DHUO00G8 F BITSET COP146 RFP SYTGET 
oo0cgcae1l A AR NuoddGe A B HAAGde F ETTOET 
ObUdei A C1 Hhygdere BA E£5 Poop} Se or PE DT 
UGGZ11S FE LBIT Vudied F&F LSEOH Abies BK LEH EET 
OboOfS fF MATGeEO® fonbotL4s F&F MAIN HT St Rk RS 
UNU461 A DHES nHogiid Rk FRIT Bbuies F&F RECO 
GOH01i02 rR SAVER OU0tOen F&F SETOLOG wubtine rk TETOGeEn 
OUGOTIS F&F SIZE HOOCALLiS fw fre Dinos fF Shh ger 
OUNLS5 rR S¥Se26 COOP & SYS SET Gee Se ie ey ey c7 
000050 A VEJNAM DO00054 4 YVELCHT OUGohi «& 
MBLY COMPLETE 
41 | a | 2cd 
l2e9 
ele 214 
40 56 
le 33 47 
80 100 
65 69 81 
134 
edd 206 
BS 66 rs 157 
a8 34 
89 ot 1ee 
Lid 
Le4 
160 
105 lie iel 
a5 
ind 
br oO ra 6? 90 
24 
I9¢ 14-4 
153 
148 15% 
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45 - 
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E-VTAM NCR | PROGRAM PAGE 1 LISTING PAGE ¢ 2@11) 


o00001 A 1 VORTEX SET PUT LAST FOR VORTEX Ye 17 00001 
- : THIS I8 &@ COPYRIGHTED PROGRAMs COPYRIGHT 1973 BY VARIAN DATA MACHINES17 eae pd 
iv 0006 

4 ® ¥. Dat. PART WG. 92L1105-037B i7 00004 

5 @ 17 00005 

6 * RELEASED 3-1~-74 17 00006 

? m i7 00007 

6B m : iv 00008 

9 & NCH i7 O00d009 

id ® i? 00010 

ii * = 17 OO0Gi1 

ie TETGE NCM 17 OO001e 

3 NLIS 17 00013 

1443 LIST rec eee ¢ @ | 

i444 @ 17 o0014 

1445 TITLE NCM MAJOR ENTRY POINT i? 00015 

1446 BERRA AAA AKA AKA KAKA KCK AKA EKA RMR KM 17 oo0u16 

1447 @ *m 1/7 OOOI?S 

i448 ™ TITLE ~ NETWORK CONTROL MODULE m 17 00018 

1449 = = *® 17 00019 

1450 ® PURPOSE - * 17 O0020 

1451 THIS IS THE MAIN ENTRY POINT FOR NCH, * 17 OO0e21 

i45e * * 17 g00ece2 

1453 ™ CALLING SEQUENCE - * 17 00023 

1454 * JMP NETCON IN RESPONSE TO RTE SCHED * 17 O000e4 

1455 * * 1? 00025 

1456 ® ENTRANCE PARAMETERS - * 17 OD002e6 

1457 * NONE * 17 00027 

14598 * * 17 00028 

1459 KZRRKRAARSAKRARARAREKKKRKRKRAKRAAA ESE KR KARR KRRKRKKKRKKKREARRKE RRR MRE KKK i? 00029 

000000 R 1460 NETCON EQU & TOP OF PARSING LOOP i”v ovog030 

000000 R 1461 NCH EQU NETCON EQUATE FOR ENTRY FOINT 1° 00031 

l146e IOMAC FORM 15353458 FORMAT FOR I°0D MACROSs WORD 3 lif o0cgse 

1464 RERSSPARRAAMKRERRKRARARKRRKRARKRERKAKRAKRKRRAE HRS EKER KESRKREKR EKER KERR AMREK KEK SHEE CEH i? oO003¢4 

1465 ® SETUP AND ISSUE INITIAL MESSAGE ~™ ifv Og0Q35 

1466 ZMRKRRRARKKARRRKAAREKKARAKAKKAAARARARKRKRRKKKRRAEKKEKARER KKK KEKE KEE KEK KKK ER KEK KE {7 oo0o36 

0000 002000 A 1467 CALL MOVER» CNET»sFLD1»sLNET i? non3? 
0001 ON2237 R 
0OO02 ON2467 R 
0003 002527 R 
D004 ON0003 A 

0005S 002000 A 1468 CALL TYPE ISSUE INITIAL MESSAGE i7 00038 
0006 O02150 R 

0007 AQbHeD00 A 1469 CALL KEY READ INPUT DIRECTIVE 17 00039 

0010 OO0e2t6e R | 

OO11 O10421 A 1470 LDA BADSYN PICK UP SYNTAX ERROR CODE i7 00040 

0O01ie O06057 A 1471 S TRE ERRTYP STOW AS INITIAL ERROR CODE i? OO0O04!1 
0013 002455 R 

1472 EJEC i? 00042 

1473 s aeaMaaMesiasMeMaahatas Mat Rest se teales ta sRasRiaMssResdartertiaa tastier LaaMaslatasteetn Rus tokucte t-okituteatete tad Mile detet At tt tt ttt ot ee eee i7 90043 

1474 ® NOW BLANK OUT VERB HOLDER AND RESET BUFFER POINTER * 12 00044 

1475 RRMA REKAKARRRKRKKRAREKRARKKRAMRAAAAKRKRKRKCRKSKEKKKARKKCHKARSEKEKRKRREKRER ERS KKK KKK KKK i? ongads 

0014 034154 8 1476 LDXx NCOé0e2 PICK UP POINTER TO HOLDER if 00046 

0015 0274155 A i477 STX NCO620 STOW AS INITIAL HOLDER POINTER 17 oog4?e 

0016 006017 A 1478 NCOCO410 LDAE BLANK PICK UP AN UNPACKED BLANK 17 000468 
0017 O0F463 R 

oo020 055000 A 1479 STA OO» STOW IN HOLDER 17 ob006049 

O02@1 ON5145 a 1480 INCR 045 BEUMP xk REG AND COPY TO A REG i? 00050 

0022 144147? A 1481 SUB NCO604 COMPARE TO END OF HOLDER i? 0o0051 

0023 001004 4 1482 JAN HCoO4dido IF INS IDEs CONTINUE LOOP i? b005e 
0024 000016 R 

0025S ON€010 A 14832 LDAT BUF FOINT TO INPUT BUFFER i? 0g0053 
0026 NN0eE766 R 

GOe7 OO4eal A 1484 LFLA ] CONVERT TO BYTE ADDRESS | i7 00054 

HHO30 o906057 A 1485 = TAE COLFTR sTOH AS INITIAL FETCH POINTER i” 0OG055 
0031 0902453 R 

149° BERR ESSERE HES EE KRESKESE ESS EEE EEE EEE ESE EEE SEH EHH EEE EEE EEE YM EER i7 oo0ns/ 

1483S & FETCH NEXT CHARACTER AHD CHECK IF ALPHAEFETIC ~* JI? 00058 

1439 KERSKEKRRKEKKAAKEKEKEE KEKE EKER EE SRE ERE EE EAE ERNE REO MEM MR LF OOo SS 

0032e O02f00 A 1490 NCO#2O0 CALL FETCHs NCOSOD FETCH NEXT NON-BLANK iv odgdg60 
GO3a3 O01737 R 
0034 000060 R 

0035 006147 A 1491 SUBE CA COMPARE AGAINST LOWEST ALPHABETIC if? 00061 
0036 O02462 R 

0037 001004 A 1492 JAN NCOSOO IF LOWER,» CANNOT BE IN ALPHABET i? o006e 
0040 000060 R 

OOd1 OO6147 A 1493 SUBE CZMA SUBTRACT RANGE OF ALPHABET 17 00063 
0042 O02464 R 

0043 00100e A 1494 JAP NCOS500 IF HIGHERs CANNOT BE IN ALPHABET 17 90064 
0044 000060 R 

1496 RERRRASRAKKERARSEE RRR RSR KR EECETECARe e 17 00066 

1497 ® CHARACTER IS ALPHABETIC; STORE IN HOLDER * 17 00067 

lé¢9G RRMA RKKRARM KKK KKK RRA KAKA CK A RRA RAPA KR EA KK EAKAAAA KEK AMR KKK SKE K MO i? 00068 

0045 014125 A 1493 LDA NCQa620 PILCK UP CURRENT POINTER if ouodgEes 

0046 144123 A 1500 SUB NCO604 COMPARE AGAINST HOLDER END i? 00070 

0047 OO01002 A 1801 JAP STNERR IF TOO LARGEs SIGNAL SYNTAX ERROR if 00071 
0050 000133 R 

0031 034121 A 1502 LDX NCQ620 PICK UP HOLDER POINTER lf”? o0g/7e2 

00382 oO06017 A 18503 LDAE CHAR PICK UF THE CHARACTER 1/7 00073 
0033 dO0e454 R 

0034 0355000 A 1504 STA 0: >TOW IN ¥YERB HOLDER 17 00074 

0035 O44115 A 153505 INR NCO0620 BUMP HOLDER INDEX 17 90075 

0056 001000 A 1506 JMP NCO 420 CONTINUE BUILDING THE VERB i? 00076 
OnS7 ONO003e R 

et eke Te eee ee SS SSeS CES Pee ee eee SC CCC CCCSSCEtR ST Ate eS 17 00078 
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NCM PROGRAM PAGE 6 LISTING PAGE ¢ 216) 
* NONE. “x i? 
= - i7 
ee ee ee eee Pg 
RESTOR EQU ROUTINE ENTRY FOTN 1? 
Fee Soa 6c WN e ERR CREE ak ee Ke Keer eeene Keene 1? 
+ CHECK FOR A DELIMITING COMMA AND SETUP NESSAGE * 17 
ERR SCBPRKRRPHRERAREEARERRAARKRBRARR ERS EFKRSKRKEEKRERKEHEL ESSER KREAL RASTA SC AKERS REE i 
N"C2eio0 CALL CHKCOM CHECK FOR DELIMNITING COMMA 1? 
CALE MOVER, CTID»FLDI>LTID 1? 
CALL MOVER, CRESsFLDSsLRES i” 
CALL UNITsSYNERR»NC2S30 i? 
We ECCT REE ER EE ORL 
* IF NOT TERMINATED BY A PERIODs CONTINUE SCANNING “* 17 
SRRSESAARESEEKESCKERESCSERARARHRARSESERKARSEA KSEE KES SESE CREE ESSERE ERE THERESE EEE es 
NCeseo CALL CHKPER CHECK FOR TERMINATING PERIOLR $3 
JMP Nceei0 IF MORE, CONTINUE SCAN i? 
REEVE SEEKERS ETEK KEKE REESE EE KEKE KEE EEK ERA EEK EEE RES LE 
* THE FUIT HAS BEEN PARSEDs NOW DO THE KFESTORE 8erTrrIon * jr 
SKEET SSPE SESS SEARS SRE RATERS ESKER RSET CEES EH EEE TRS i> 
NCes3saq CALL MOVER,s PTUITDsFLIe:s2 1? 
LOE BLKEPTR POINT TO THE TIt 1? 
LDA TIODPs & PICK UP ALTERED TCD POINTER i? 
JAZ NC2849 SKIP IF NEVER REDIRECTED re 
SETA %s TIDSPs TIDEPBs TIDSPZ4+TISECZ 1 
TZaA FICK Ur a ZERO er 
Se TIOUFs & wi Tl) CLEBE ALTERNATE POINTER L? 
CAL WRITE FEURITE THE TIE To RMD L 
VESPER EEE CEK ERE ET SERS HEH HP eee ae Coe Coe lee 1? 
* NOW ISSUE THE REBIRECT pr Sob AND COATIinuE SCRM * 17 
HERERAKESTAERHRSERAHREHRERHR HERO HR HR RDs 5 PCAN ERR EE ERE ER & KAM RAKES KE REREKEREREREX i7 
MCes40 CALL TYPE Paka EY REGCT MEPS Boe i? 
JHP NCeseo mo tae TO TRY FOR eHOTHER UNIT i? 
EJEC 
PE RECLCCCELELLLIELAL LLL LLC LTTE Lec Lee ee 
* i. { 
* TITLE —- DOWN DIRECTIVE FRU: * | 
* * 1 
* PURPOSE - ae 
» THIS ROUTINE Oe dere TT. TTRPECTIWEs FOR EOTH * i? 
* LINES AND TERPFNINALS ~ Le 
¥ *# 1? 
* CALLING SEQUENCE - x i? 
* JHP DOW * 1? 
* m® jf? 
*™ ENTRANCE PARFEMETERS - * LP? 
° NONE. # 12 
* * i? 
[REPRE So e2PEL REE S SPER ER ER RARER ES Ee eee eee eee eee ee ee eee eee eee eee ee ee ee ee ee ee 1? 
DOWN Emu * r P24 hE, ENTRY POLITE iv 
NCS210 CALL CHEEOM mein FOR DELINITIANG COMMS 1? 
SREP SSCS ERR ESCEC SESE TCE ER SR HS + RRS RHR ER ER ER ARR RES EER OR EER ER OH EE KE 1 
* SET UP. COMMON MESSAGE LL * 7 
RRRSEESSRSERSEKSARARKRERSEEKCRE EO RAT Fao tb eee ES ERE HHT SHR KRERPKREREP ERR SAE EY 1? 
CALL MOVERs COWNs FLi sla i? 
CALL UNI TsNOCS6E00s Hiebe aa 1? 
ee ee ee ne ne ere eee ne ie 
* IF NOT TERMINATED BY A ERIODs CUMNTINUE teannrne * |Z 
SRR RESESRRSEKSCSC ESTES EASES RPE HT Cee Bee THERM EHR EERE CREME D EKER EEEEREK ERED ES 1 
NC3ee0 CALL CHKFPER CAEL E FOR TERMINATING FERPLOD Ps 
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* AT THIS 


NE3S600 CALL 


NC3e16 


POINTs 


PROGRAM PAGE ? 


IF MORE> 


A LINE I§ 


LISTING PAGE ¢ 
CONTINUE SCAN 


TO BE DOWNED>s FIRST SETUP MESSAGE 


MOVER» CLNEsFLDIsLLNE 
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217) 
i? 
17 
i7 

# 17 
i? 
i? 


LDXI FLDe POINT TO LINE NUMBER FIELD i? 

LDAE LSDN PICK UP THE CURRENT CHARACTER 1? 

CALL LSTCY¥T CONVERT TO AEtCII i? 
CASES EEE ERE SEER EEE CARER RH OL 
* NOW TURN ON DOWNED BIT {N PED AND REWRITE TO RAD = 17 
CAME REE ee 1 > 
LODE BLKFTR POINT TO THE L&ot 1 7% 

LDA DONE PICK UP ®@ CONSTANT ONE 1? 

SETA X,»PSDWN»sPSDWNBsPSDWN2 1? 

CALL WRITE REWRITE LSD SECTOR 1/7 

EJEC i? 
CREA ERECT EEK EEA KE EERE KEHOE EEO EEN EME EE RENE EEE EEE EER MRR LS 
7 NOW ISSUE 1°00 CLEAR FUNCTION FOR THE Liftt€é “* i? 
FERRER RREFCAPF RSS RREFR SESS HESS ASSES SRS SES ES SP SEG SSeS ERR SFA ARERR AEC RSE EES i; 
LDAE LSDN FICK UP LIHE NUMEER is 

OR# HC 3740 OF IN FUNCTION Core 17 

STA NCS7S0 +e =TOW Ih LINE CONTROL BLOCE 17 

LORE Cir FICK UP CLM NUMBER i? 

DRA NC 3720 OR INTO FUNC OF- CODE i; 

STA NCSeid¢s =TOW IH MACRFO EXPANSION 1? 

NC3610 FUNC NC3S/‘S50;255sWHIT 1? 
KRACK KEKE RAERRRRA HE REAR EERE ERED eee ASESEHEARS HEHE ESE HERE DED ARM 1D 
* NOW SEARCH THREAD OF ALL CURRENT TEBE FOF TERMINAL OPEN * 17 
bf TO THIS LOGICAL LINE NUMBER AND CEN NUMEEF., “ i? 
* WHEN A MATCH IS FOUND. TEtTWeE T7N CLEAaA® FOE THAT TUIT. = 2 
SRBC SBP CCP ORE SCRE R ESE TC V)— rem eRe ae rE eK eae Po eR owe vO ee Ceeanaeae wee eS te 
ExT LetTcn RSTEPrak teh: OF Pid THEeERD OF iGif 1? 

LOAE LL IM Plo ul?’ Tree cuUrRrRPELIT -£E TWE munmBbeer 1? 

LELA & “HIET (0 (HE HEGHHDRDER BYTE i? 

ORAE CrMA Ur iN THE «+ ° A NUAEBER i? 

ate ACS 762 SPOW If TEN GRAb TY OCELL 

_LTDERE Test en PoraT TO Pitted TOR GN THEA 1? 

NC36e0 !Be Nc se65n IF NULL» TOF FALLOWING THREAD 17 
LOA NC3760 PICK UP TEMPORARY CELL 17 

SUE TELLiNs TFOMNPAFE TO THE CURFREHT TcoD 1? 

JAN2 HC3éedd IF NOT Saewi-s FO HiiTt DOWN 

LDA TE TOOLS FICK UP FIFST TWO CHARS OF THUID 17 

ZTAE PTUID >1T0OW IN BCE 1? 

LDA Te TDes FICK UF SECOND TWO CHARS OF THUID 17 

~ TRE FTUITN+ STOW IN TCR 17 

Cate gETLTN MAF TO tOGitatl TEFMINAL NUMBER i? 

Ind HC 3e4o IF AULEs E@ANNDT CLOSE L ¢ 

RH Hod. 20 OR IN Fun GF OCMBE i? 

Sa7 nf 263043 a ® ITER Maer | &€: Pans TOY i; 

NCS630 FuNMe PTH CBs GESsita tt i? 
NC3640 LODE TC TCs E oe le pig Tct THREAT i? 
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E-VTAM NCM FROGRAM PAGE 3 LISTING PAGE ¢ el1lse> 

000675 801000 4 1869 JMP "C3620 AND CONTINUE SEARCH 17 GO42% 

900676 0ONG4643 FR 
LE7Q0 ARM KRKRAEKCKCAKRA KRACK KARR AAMAS A RRA AAR AHA AAA AK RRR EMRE RE FO AOA 
187i *™ LINE IS CLOSED AND DOWNs ALL TERMINALS TO THAT LINE € {17 fo0441 
1872 ™ ARE FLUSHEDs NOW ISSUE THE DOWN MESSAGE AND GO TO TRY NEXT * if Gudde 
1373 ® FIEtL.? * 17? Go44%3 
1274 SEEKER ESKER KREMER HARE EERE EERE EEE EN CEE HH ERE RE EEE ER HERE RS RRA MEE PF dag 

NOH677 anedvnon A LeF5 NC3650 CALL TYPE ISSUE DOWN MESSAGE 17 on44as 

007009 GH02150 P 

QO07G601 anibod Aa 1Ller7e JItTP NCse2eed AUP TO TRY NEAT UNIT , Otage 

HoOnZ702e@ OONS61 R 

. L SFP EERE RARER KRAHRA KKK AKAERET ERASER EERE EERE EEE TETHER RACE RERER SEER ME LF Pda 
is73 ® DATA AND WORK AREAS FOR DOWN-LINE DIRECTIVE FROCESSOR * 17 Hides 
LEFF KEEKRKKEKE EERE REE KEKE ERE EERE RHEE KEKE EEE ERE EE EERE RE RSE ER EER RL f0449 

DONZ7OS 902400 1ss0 NC372e0 IOMAC WATTsOsFUNCOPs U iy 60459 
188i NC3730 FORM | FORMAT FOR LOEB Watro ify uf451 

HOur?dse OL1ed400 A 1LBB2 NCOS240 NESZ3O els FUNCTION CODE FOR LCB 1? gu 45e 

Hro705 oO00000 A 1883 NC3750 DATA O»0s0 LINE CONTROL BLOCK i? 0045: 

GHoOu7 66 OOOO) wF 

HogoF7r er heaodon «# 

HO07 F0 ODGGGO A 1884 NC3760 DATA 0 TEMPORARY STORAGE i? God 24 
iss5 EJEC i? 28455 
12S FERRER EAA REAR KMAEA EEC ER EEA KRENEK M ERE ERER KER K REE KHMER LO a4 
1837 *® MAT. TFHIS POINTs A TUID It TO BE DOWNEDs FIRST SETUP MESSAGE Kar #045- 
12855 ERR EKE EEE KAA REE HES EERE HEE AEE EERE REE EEE EEE EEE HH! LF ASS 

NH0711 002000 A 1889 NEAO000 CALL MOVER;sCTIDsFLDisLTID i? oG6@459 

Visgvie GHOeHe3/7 FR 

OON713 Gd0ederds FR 

oOOH0714 O0e52F R 

Wvudg7v1iS ognovoe A 

moor Lie ooe000 A LEesd CALL MOVER» PTUIDs FLDes = 1? o04e6fr 

7G07127 O08@e2@37 FE 

wudreo ooedds k 

Ur ogre! 002532 FR 

phates HBooodeE -FA 
129 FERRE NE EAR ERKRER EERE RHA EHR EERE MOK EKER EEK CHER ERROR ED OEE RM OER HHH! 
1693 8% TURN ON DOWN WITCH IN TIE ANG REWRITE TO FMWD KR 17 tots; 
LED BREESE EEE RSE EKER KEK EEE SEERA EHR ESTER EH EES EEA TERR HOR RET EK EH ERK CT ae. 

vubOFeS NOEGSI/ A 1895 LDae ELKFTR FOINT TO THE TIE if fise,' 

thdred d02451 FR 

Nnodgr-es Biddees A 1896 ete >| ONE FICK UP A CONSTANT ONE 17 Wigs. 
is 3? SETA Ss TIDWAs TIDWNE» TIDhAe i? ub4¢. 

Or 76 BGodesSv -& 

noOCZe@r ALSS002e A 

NOO73G OH4357 4A 

Ole Sl 1590421 & 

NnanFsae O0425" «A a 

VOOF733 135002 A 

NOOF3S4 ASSa02 A | 

HUdI735 oHegod A 1898 CALL WRITE RPEWRITE TIB SECTCE TO MD if Gade 3 

HHOFS6& OOeOdS FR 
1300 KERR SEEKER EERE EERE EERE EEE EOS ER OO REE TERE ORES! LP aa 
1901 * HOW LOGK UP LDBGICA@L TEFHMITHWAL NUMBER AND TSSvue I[°0 CLEAR * te? ith: 
L1S0 2 ERERERKREKKREKRAEHEERERKREHEREKHEK EERE KER HEN HER SER ESO VERE ESKER EOE EEE HRERRE LST Fa 

NGO0737 002000 A 1903 CALL GETLTN FIND LOGICAL TERHTHAL NUNMEER ly tid 

O0u740 ANZeSe R 

WheF4i DHiGID Aa isdd JAZ nC4040 ShIF FUNC IF BEY EURRERTLY OFFER (> os 

gchrd? GOOFH4 PR 

HONK 4+¢3 114014 Hh 1905 DFA NC4dien Ore [NTO OF-CEHE if bodes 

Hoe 4ed O5S4005 46 1906 STA NC4110+23 STOW INTO [270 MAaACkeA i” Of 476 
1907 NCd110 FUNC FTUIDs»se55s WAIT Ly of ee 

HO0F4S O0eESOS A 

Givadredte UOD6G8 E 

O0urdesr 10000 A 

NHOYSG O0e77F A 

GON7S1 O0ee¢4d4 FR 

AOO752 000000 A 

ONuFES ANODGAO «4 

_ 1apa schugaalaheshaaahecbidetleblptveleedgadeed/siuadestebeeloalesatvalualetdiahsidgi deeded ieilanlviheilidbidia bsepdadeededseladaidapiioiiinte ba kudpiblpdediniaietidiiiaiale i Warped es 
f i910 *® TERMINAL IS NOW DOWN BET ALL IAD IS FPUPGEEs $TSEUe MESSAGE * 47 B02 40 
| i911 0 RERERNE RR ERERKEE KEE RSRERKM G6. KERURS CEWS ERT E 6 RAREES RS RARER EER RRR RES i? hd, 

HoorS4 Goseud0o A 1912 NOdOgO CALL TYPE Lebel PONS HET TAGE tL; 8o4ke2 

VOC0755 ANVEISO R 

000756 OO1000 A 1913 JMP NCS2eeo ICFP TO TeEY EXT tui ft 1? 849% 

QOU75S7 O0O00561 R 
1915 RRKKREKRESE REM EKRE KRENEK RECESS SERS SH HRS ETS SCH HK EES RK SHERMER EEN HER HH LP Pada! 
19ie @ CONSTANTS AND WORK ARESS FOR DOWN TEe NT HAL PEATE STOR * 1? yudee 
Peet? TEETTTIT TT TLL LESE CLE T LLL iF oh bee 

NOC 780 ONEd400 4 1918 NEdiedod TOMAE WATTsOys,FUNCOP su if UUs 

: 1319 EJEC tf Ouo4e4 
1920 KERASOTES EERE MKR SSE RO TERA REMORSE FP AAA 
1321 ™ * jf O44] 
i922 "8 TITLE - LIST DIRECTIVE PROCETEOR * 417 g649- 
1i9e3 * * if noass 
1924 ® PURPOSE - * 17? GO0494 
139e5 * THIS ROUTINE SCAND THE LIET NIRECTIVE * ify fogs 
ise6 * * {FF 80496 
1327 ® CALLING SEQUENCE - x J? Oedper 
1923 8 JMP . LIST * iF ifaw 
1329 ™ * {7 nds 
1930 * ENTRAHCE PARAMETERS - * i7 d8950u 
193i NOWE me 1? BS 1 
ijsae *®. * Le? CUS wt 
1LGRR KARAM KRKASRAKRMARER RRR MEERA ES - ARERR ERSTE REG EKER EERE SOE EO KEKE AEE EH ES Pa: 

o00761 R 1934 LIST EGU * Eh y & POINT ly a@S504 
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E-VTAM NCM PROGRAM PAGE 9 LISTING PAGE ¢ 219) 
000761 906017 A 1935 LDAE CHAR PICK UP THE CURRENT CHARACTER 1? 
ggd0762@ 002454 R 
000763 ONG147 A 1936 SUBE PERTOD COMPARE FOR A PERIOD 1? 
000764 Q02456 R 
900765 001010 A 1937 JAZ NC 4600 IF PERIOD, PROCESS °LIST ALL* 17 
000766 ON1011 R 

1 SSE IE SME DOE De ARETE He EOE 00 SEE DSR Te AE kee | 
1940 ™ AT THIS POINT THE DIRECTIVE HAS AN OPERAND LIST * 1? 
1941 KRAMER EK RARER RRR KRAEMER EERE REAR AEE ERM ERR AER EMER RMR RRR YF 
Q00767 ON2000 A 1942 NC¢4i0 CALL CHKCOM CHECK FOR DELIMITING COMMA 1? 
000770 O0#416 R 
000771 ONe000 A 1943 CALL UNI TsNC44205NC4430 ae 2 
900772 001353 R 
000773 O00777 R 
000774 001003 R 
QG0775 O01000 A 1944 JMP NC4440 OM ‘OTHER*: SKIP TO CHECK FOR PERIOD 1? 
Q00776 O01005 R 
1945 EJEC 1? 
1946 ERKRERMKERE REAR TKK AATEC K RR 1D 
1947 # AT FHIS POINT A LINE WAL SENSEDs CALL THE LINE LISTER * 1? 
LOGS RRMRERKEERE EEE RE EERE MEER EEE EERAREEREMEEREEREEEREREREREERER KREME MEM RRR 1? 
GO0777 O9N20G0 A 1949 NC4420 CALL LITLN IF "“LIWE*s CALL LINE LISTER i? 
061000 O01125 R 
991001 001000 4 19350 JP NC 4440 AND SKIF TO COMMON CODE i? 
001002 JWH1L1005 RK 
1952 BREEN ERE SARE KEE AERC EMA Oe LOD 
i953 * AT THIS POINTs A TUID WHS SENSED: CALL THE TERMINAL LISTER * if 
1954 KRENEK KNEE REE EEE ERE HERRERO EEE ERE RNR ee 1S 
00190039 902000 A 1955 NC4430 CALL LSTTUY IF "TUID",s CALL TUIBD LISTER i? 
001004 O01e243 R 
1G 7 FERRERS ERE KEARSE EERE ET ERECTA CREE HREM MRR YP 
i355 *® IF NOT TERMINATED BY A FERTODs CONTINUE SCANNING * 1? 
1959 BREKERRREEEEREERARAKKEKEEE EERE EERE KER EEE ECR REE ERHO REET ER ER RRM E HL S 
O0i1005 anenoo A 1960 NO4+440 CALL CHKPER CHECK FOR TERMINATING PERIOD 1? 
NH1006 ONe4¢e25 R 
Onind? OHinnn A 1961 JMF NC4410 IF MORE: CONTINUE SCAN 17 
NO1010 ONO76F R 
1962 EJEC 1s 
1963 aaa GS tga gi Sag ag bn ght le lel halal i? 
1Sed ® LIST ALL IS ISSUED HERE>s PREPARE FOR READING LSD'$ * 1? 
1965 ARENT E ERNE ELERARAERE EN C250 508 CHECKER RTURE CUES Oana a EARNER STEREhR ER : 2 
H9O1IO11 OHN5001 A 1966 NC4600 Tena. PLACE ZERO IN A REG 1, 
O9i012 ON6057 A 1967 STAE LSDN TARE AS INITIAL LSD NUMBER Le 
DQ1913 OHe4F34 R 
001014 006017 A 1966 LDAE DELETE PICK UP ADDRESS OF FCB Lit 
001015 O0e465 R 
001016 ON6057 A 1969 STAE FCEPTR STOW AS CURRENT FCE 1? 
001017 O0e2452 R 
o> 197] SRE REESE CANES CREE CER EEE SEERA RENTER eRe 1D 
L972 ™ COMPUTE SECTOF NUMBER AND READ IN THE Lit * 1? 
L375 BFR ERR ERE REET KREA ERE ER ERE EE SEE EAR REE ERE KORE ERE KRBRARA ERROR LO 
001020 ON5S001 A-1974 NCO4#+610 Ten eERO #&# REG FOR Di¥vIsIon 1? 
001021 ON6027 A 1975 LOERE LEON PICK UP THE CURRENT L3D NUMBER 1? 
Huine2e nned¢sd kR 
NOIVeS 17°4100 A 1976 DIV NC4700 COMPUTE CEL TOR Ann DISPLACEMENT Rit 
ODihvest ONSlee A L197? IBF MAKE SECTOR NUMRER GHE*S ORIGIN 17 
O01Ne2S OOENS? A 1928 S TEE SECTR STOW Ht THE CURRENT SECTOR Lf 
H0ines Onedd? PR 
HX8iv8e? ONSOI]S A 1979 TAE (OFY Rr t etre FO & PE Bg 
NO10s0 HOSHO1 A 1980 TZA SRO # RES File MULT Pele 1? 
GSOQULIOS1 1604685 4 1961 MIL NC4P7 10 COMPUTE £° 9 OFLC PLALEBENT IN WORDS 1? 
NVIIse ONEVE” A Lose STRE BISP 2TAW HE TRE CURREHF DLSPLACEMENT 1? 
OG10S3 OU0ed5u RF 
H6i90T4 ONeNOH A 198s CALL READ PEaG TN THE SECTOR 1/7 
N910SS onened F 
N91N36e ONeGOd A 1984 PALL CHALE CHLOEUWLHTE ADDRESS OF LSD 17 
DOINS? OVIZ2/ R 
Q0G1040 002000 A 1985 CALL ESTE PRES CONTROL TO List TRE LINE 1? 
QGO1N041 ONLLeES R 
LIS 7 REE OEEEE KS OREM EEE HEE OV EME TERED EHH OE CET HET KEKE ERR ES MEER MEW HOM 1? 
1258 ® THCREMENT LSD NUMBER AHN COHTINE ITF «Ll. 235 * 1/7 
LIOSF ERR KEH EER EMER KEE REE EEO EO EEE FORE REE RHEE EERE EEE RRR LO 
YQ10de NOOeO1? A 1990 LDAE LS1N Pick UP THE CURRENT LOD NUMBER 1? 
QY1i04s U0edsd FR 
QO1044 OOSTIi1 vA 1991 TAR INCREMENT C7 i? 
891045 ANGeNS7 A 19982 STARE LSDNM SAVE TT 17 
QO1Ns6 WNedsd RK 
Neing4s? 1404.31 AH 1992 SUB NO4 “ed COMPARE FOR MAX + 1 i? 
QNO1O50 OnNLAO4 fF 1994 JAM NCdeé6 io CONTIHUE IF wuks. Hak i? 
OH TOSL Obineod Fk 
1995 EJEC i? 
1994 MMO CER ER ERR RAEMAEKERS CR RRR LP 
i397 @ NOW PAS: THROUGH THE ITHDEM aiid LIST aAbLt TUES * 17 
LOSS ERM RAM SELES KEKESR HTH EHER OSES ROE EERE EEE SHEE SSE KRERE RM ERE SEER EKER ERR 1? 
M070S2 ONENLS A 1999 LDHE BFTE Tr PICK wEbOoPe Ts OF FCE i? 
QO01053 ONes+Gn R 
001054 006057 A e006 S TAE FRE TF >TAY As ESPREANT = CR i? 
Q01055 O02@45e F 
NG1i056 0104e)] A 2NDI _ Dri ONE FICK UP HW COVE TART. BAe BY 
QUIGS? O88057 AH ehoOe NC4G6A0 STHE SECTH S>TUWd fo THE CURRCHT .sECTOR NUMBER ee 
DQ1060 QN0e44e FR 
001061 ON5001 A 2002 Tn FICk UP & ZERO VALUE i? 
001062 OUE05F A 2004 STAE DISP USE A. THE CURRENT NISPLACEMENT i? 
001063 0072450 R 
NV1064 ONe000 A 2005 CALL READ READ THE FEGUFSTED tECTOR i? 
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i a “ ry ; oe | ci at as - 
001063 002@020 R a, a a er 
001066 006017 A 2006 NO4630 LDAE DISK PICK UP THE CURRENT DISPLACEMENT 17 o0576 
001067 602450 R i ha sod 
G6O01070 120423 A 2007- .» ' ADB FOUR Fas INCREMENT TO THE NEXT TIB i” O05? ? 
O917071 006057 A 2008... _, STARE, ,, BIRT. : ‘STOW AS THE CURRENT DISPLACEMENT i7 00576 
001072 002450 R ek Fh. eae, s 
601073 004342 A 2009 SRR. a. BI¥VIDE BY FOUR. ‘i? Qs s 
G01074 O061d7 & 2010 , SUBES Breer: MINUS NUMBER OF TIBS IN THIS SECTOR iF O8566 
081075 602576 R vw 
001076 905311 A 2011 DAR ADJUST BEFORE JUMF TEST i? G40fsi 
ees “id pad . 2012 JAP NC4640 SKIP CALL IF NO MORE ON THIS SECTOR i7 @8£Se 
BDO1101 Of 2000 A 2013 CALL © CALC COMPUTE ADDRESS OF RECORD FOR ROUTINE i? 68583 
H01102@ GO17e7 R . | | | 
0034103 874002 A 2014 $Tx NC 4632 STOW FROM LOCATION 17 08834 
001100 0028000 A 2018 ~ CALL - ROVER MOVE TO PTUID SLOT 7 i? ones 
001105 o02237 PR et uma ! 
SO1106° 000600 A 2016 NCSESE* BATA §, BsPTUID2 PARAMETER LIST 1? GaAbse 
QGLLAR Ogedd4 R ah aro! ye EE tg Mgt oy 7 
QOOLL19 O00082 & SaOETN EMRE iat BEF SE pe a ae 
901114, Q@02000 A 2017 ' . CALE LSTTu CALL TUID LISTER 1? whois; 
HOLliLlée 001243 R | 
991213 001000 A 2018 JMP ‘NE4630 SKIP BACK TO FROCESS ANOTHER TIB 7 gAF Ss 
OO1134 001066 R 
ath eOhP0 salaheshealeadeeloebealashabepledgelabakestaheelodieslesbesliahslehalabetutedbeladalatatalalsbobalelebalatadededededededodudedlededutedalalataldeabeladetedes 17 oS 
evei « AT THIS POINT THE WHOLE INDEX SECTOR HAS BEEN PROCESSED *¥ i? GBesgvi 
anew Ete Pe Pee TP eee TCT ee EC ET ESSOCTCOSLOTOSCESCLCLOCLLOCCCCCLCCLLLLCL EL Lt et tt oe eer 
VO1i115 GOE6017 A 2023 NCO4640 LDAE SECTOR+2 PICK UP THE THREAT POINTER if ogg 
GOL116 CO2600 R 7 pe OF 
QO01117 004347 A 2024 " “ “LSRA eg SHIFT INTO POSITION 17 Oa%34 
001120 001016 A 2025 JANZ | NC4EEQ . : CONTINUE IF THREAD IS NOT NULL 17 Hon9s 
901121 0013057 R i | 
001122 O01000 A 2026 JMP NETCON - ELSEs GO TO TOP OF MODULE 17 G0596 
GHiLt2e23 oOnd000n R — 
2029 MR Re REE EAE RA ARMM CF IS as 
229 = DATA AND WORK AREAS FOR LIST ALL PROCESSOR * i? buh 
2030 PT TETTLELECLELLELELET EEL TEE LPTLereeeELELELELLTLELeLEeeEereererereerers 17 oneoG 
991124 000030 A 2031 MC4700 DATA °° 3£z@4 | NUMBER OF TIB"S/SECTOR i7 ooeo1 
000465 A 2032 NC4710 EQu - FIVE. SIZE OF EACH TCD i? OGete 
000431 A 2033 NC#720 EQU | BSS - MAX LSD NUMBER PLUS ONE i? 00602 
2034 EJEC i? oO0604 
2035 sdedededadndad dhalabelldalstedbebsbsbdodulebtdatddd tt td.t4,4.4.4.401404411.441141.411 ike iy Aagens 
2036 ™ * if 00606 
2037 & TITLE - LIME LIST (ROUTINE * i7 00607 
2038 ™ * if 90608 
eo3s9 ™ PURPOSE - € if O060% 
. 2040 & ROUTH NE I$ CaLues TO LIST THE CURRENT STATUS OF A SINGLE * jf Goediu 
bd i A 8, ib) _ LYNE WHOSE LSD- TS POINTER TO BY *BLKPTR*. * 317 00611 
aire iat oa yl alee val | * iF Ones, 
hey a: 2643 ® CALLING SEQUENCE be Pee a * 17 G0EL13 
i BPAY 2044 ™ CALL ‘LSTLN : -e i’ $0614 
4 fie: 2045 -. sm ],° vel 
2a046 *® “ENTRAN ce PARAMETERS - * i hive. 
i 20467  .' "BLKPTR* NUST POINT TO THE LSD OF THE LINE [TD BE LISTED * 17 UO6: 
“he ey YCCMN' MUST CONTAIN THE CCM NUMBER FOR THE LINE Boye he 
: , | OT eb 
| 2050 so aca a ae fea 
901125 000000 AR 2051 LSTLN - ee | ENTRY FELL gah a? 
OOl1leé O06027 A 2052 C DBE BLKPT.R PFOTHT TO THE Lp i' taeee 
QO112a27 O9e24d51 R | 
O01130 016002 A 20853 LDA PSDEFsB PIC tl TNEFINED Wie o eH 
O01121 006450 A 2054 BT PSTDEFB¢BTAGFF ah 45.9 the 
Q011392 O01241 R , 
COS SG MRAM SCREW eee ee ee er EEK SP eee ee eh 
e057 ™ NOW SETUP MESSAGE BUFFLI * 3 biter, 
: 2038 He NiFFee BE 
Q8113S3 0920900 & 2059 ‘CALL : MOVER  CUNEsFLDI+ | LNE | Tere ks 
Q011394 O02@237 R 
OOL1L a6 002472 R 
Q0OLisme O0eSe? RR. ; ee ie , 
OOLLS7 O00%Ce- A - rs Ee aa ae a x : 
QOO01140 OP6017 A 2060 “ay LDRE ae Mo LDAn * P* | te Bab Wk 
Riden: Chane R va ? 
OOiji4e@ 606857 A 2061 STAE PLES=1 | STOW * FF te’ Une s3 
SDiiae. eoaene Fe a 
OO1144 O86030 A 2062 LDxI Fide FOINT YO NUMERIC FIELD 7? fuerte 
D01i4a O96017 & 2063 LDAE SDN | 
| “Ug ; | oe: PICK HP BINARY VALUE 1? ute s3 
091180. 008000 A 2064 CALL soLSTCVT... 
4 -]' 7 ie, } mee Gs , CONVERT Ta ascii 1? ude 
Oeeade aheece ie | ig, | a ae : 
0641 066027 a 2065 L DEBE BLKPTR 8 ° FOINT 10 .THE LSD 17 YoesS 
OEitarveragcee A at : “ef 7 ences At AE 
081154 '°O01600e A tot Ae PsPLAz” , % PICK WF ah the 0 Ll? G06%36 
“. Pich GuT PHYSICAL LINE NUMBER if Hoare 
OOhise gpecse a e068 | EDK: FLo9 | 
: | FOUINT TQ RESULT FIELD 1 Oe 
001157 OB535 R PE eo ete 
004160 Roeus: A #069 CALL LSTcerT : — CUMNVERT TO aAse€ri 1? O0FSS 
nO1L6e g9e000 A 2070 CALL R 8 
iQ 6e@ . , | 8070 CALL. auY ICOWNIFLOS s LOWN & 
NOLLES OOSE3? R ~ i= . ne TEESE 
202164 O02800 R 
29021163. G8@540 R 
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NCM PROGRAM PAGE 11 LISTING PAGE ¢ 


CALL MOVER»sCCLSsFLD6sLCL$ 


Se ee ee a ar a ee a ee ee 


IF LINE [S$ UPs>s MOVE "SUP" TO MESSAGE ® 
y RUARENSRSREREES RASKERAREENERERARKRERREREATREEE TARDE RENERERNERARReEED 


LDBE BLKPTR FOINT TO THE LSD 


LDA PSDWN:s B PICK UP SWITCH WORD 
BT PSDWNB»NC4830 SKIP IF FLAGGED DOWN 


CALL MOVER,» CUPsFLDS»sLUP 


AERC KKK AMERSHAM HK CCE CCR H RHEE EE A 


sd IF LINE IS OPRENs HOVE ‘ORPEN® TO MESSAGE ® 
KAA AK EAA EE AES SCE ER ee 


EXT CSELLT EXTERNAL NAME OF LLT | 

NC4830 LDAE LSDBN PICK UP LOGICAL LINE NUMBER 
SUBE CS2LLT COMPARE AGAINST NUMBER IN TABLE 
JAP NC4840 IF TOO LARGEs MUST BE CLOSED 
LDAE LSDN RESTORE LOGICAL LINE NUMBER 
TZ2E XERO B REG TO RECEIVE BYTE FLAG 
LLSR 1 SHIFT OUT BYTE FLAG TO B REG 
ADIT CS2LLT ADB IN EASE OF LLT 
INCR 015 INCREMENT OVER COUNT AND COFY TO xX 
LDA Os PICK UP THO BYTES | 
XBZ NC7320 SHIFT RIGHT OVER EBEYTE IF FLAG IS ZERD 
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7 TUID IS THE ADDRESS OF WHERE TO RETURN IF A TUID 18 FOUND x j 
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RMRKRARMARKRESCKCRRKRKRKRSKRRARRARARARAARRKCSAKRAKKRSEKRRRECMARSERSEK SKK REKCKRKE KRESS KK 1 

UNIT ENTR ENTRY CELL 1 

Lee ESE REESE EERE SSSR ESE E RET ERE SESE RSE SSE RES AES SSS ES PET ESE SSS ES ESR TS SS SE 

* SAVE CALLER'S REGISTERS AND SETUP RETURN LINKAGES % i 

LEE e eS SERS ETERS TEEPE RES ESSE EER CE RE REESE EER ERE RS RS RSET CCST SECC SECS ES TT SS 

STB NCé044 SAVE B REG 1 

STAR NCé6046 SAVE &® REG i 

LDWE UNIT PICK UP PARM-LIST ADDRESS 1 
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JAW NC6010 IF NOT ALPHRANUMERPTC:s SKIFF TO RETURN 1 
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ECSS BRRAKRAAERAKKRKAKAARKAKLAKRARARAKKRKRARACKKCKRKEKKAKAAARARAAKKAR ARR REREKRRAAARRHREBREE PP Ps 
* NOW VERIFY THAT THE CCM UNIT NUMBER IS YALID * if Ofes4 
FESS SECT OCS ECeSCC COS CSCC PCC EPCS SCT ESECESCSCOSCSCOC£OSS $e CCCOCCC£CCeS SP tee a 2 eS ee ee ee 
EAT CCSMET EXTERNAL NAME OF EGUIPHMENT TABLE if QboGce} 
TZA PICK UP # ZERQ i? Dien 
STA CCMCAD STOW IH CONTROLLER TABLE PDINTER if” ORs 
LDA CCAN PICK UP THE LUN OF THE CCM 17 af 
CALL GETCTA MaP TO A CONTROLLER TABLE Lf Paste 
Jan NC6430 IF NOT FOUHDs SIGHAL ERROR 1? 4 
STA CCMCAD ELSE TAKE AS CONTROLLER THELE a 
LOAT COSMET POINT TO THE siisiaianiiciiial TABLE i? fs 
LDE Os PICK UP NUMBER OF CEMS if Se. 
LAR BUMNP OVER COUNT if Qa” 
JBZ nce 430 IF NO CONTROLLERs fIGNAL ERROR if { 
NC64e20 LDA CCMCAD PICK UP THE TABLE ADDRESS i? fi 
SUB fis ® COMPARE TO CCMS IN TABLE le? & 
JA2g Nled4p IF EQUAL» SKIP TO FURTHER PROCESSING kf ai 
IhR ELSE BUMP TO NEAT =LOT i? oa 
DBR | DECREMNENT COUNT REGISTER | if” @ok, 
JBN? Ncé6é4e0 COATINHUE IF STILL THEIDE OF THELE 1? O08f | 
a WE EE A HW ee BE 0 ee EE eH OE i? oa28 
» WE WERE UNABLE TO LOCATE THE CONTROLLER THELE ADDRESS @ 17 Whe 
* IN THE MULTIPLEXOR FOU IPENENT. TABLEs THUS 8 1aGnal AN ERROR. *@ if G5: 
CREEKS ESHER SEHK ET RRR AERSE ER SASOSR ERE OC HE EEE R SE O Hee 
NC64¢30 LDA UDFCCM PICK UP EFROR CODE 77 6 
> TH ERRTYP STORE IN CURRENT ERROR TYPE i? "4 
JMP S THERR JUMP TO SIGNAL ERRIDF iv 
EKER HEKEAE EK ESTEE EERE ERE CEE EEE MERE EEE ER EEE EERE EE EERE REE 
* COM HUMBER IS OKAYVs COnRTINUE TO FPRREE TFHE BDIRECTIVE ne ert 
HRRRARSEAKSKCSESKS SHEA SES EHR RHEE HE SEEKS ESHER TASES EHS SHREREHERSR OEE SEEHE TP 
NCé6é440 CALL CHKCOM HECK FOR GELIAITI“CKG COMMA Lf (Ue 
CALL FETCHs SYNERR FETCH CHAF FOLLOWIHO CONMA i? 20 
SUE EO REMOVE CHARACTER ZERI 
JAN SYNERR IF NOT NUMNERICs SIGNAL ERROR 
SUE Coro REMOVE RANGE OF NUMERICE . 
JF STHERR Iz HAT NUMRERICs SIGNAL SYNTAX ERROR 
CALL HUMBER ° Ea TRACT THE SECOND WhiMBER 
STA LSON aed MS THE LOGICA: LINE NUNBER ff one 
TAB hii i? & REG CF Re 
SEMEN KE KES REAR RE CERRERES trees Ue ERERRREKE REDE ERE ERMA HE EERE EERE ER ti? EP gesas 
* NOW COMPUTE RAD ADDRES. OF = AHD READ THe =ECTOR *® if one 
CORIOOE EOE EOOUODOUEDOUOD LGC OF TEE 0 eK E NAHE EEA eR EE EER CORO R AKERS i? nas 
SUE HCeseo SUPT ape, (CNET NAS WHEE {7 Nae 
JAP STHERR Pe fauti Pabst "Thrall 2YHTAX ERROR 27 a 
TZA rreit ow Fey FOR Tritt i fie i? ou 
DI HloeS3u CSPI) G94 & .' (OF ADltke EO. ANT RENATHDE & a 
IBF. a ae a NeFIGIN 17 na os 
STE SECTN hiv THR SECTOR NuMmRER bein 
TRAE Poe yo ooa haa rite ke TO BF RPE L. we 
TZH ma PME Wek TIP. yy iy wit i 
MUL Hoo S4G * by PFLACERENT bh whkeavs 17 Ae 
a I = DTaP re a rf CURRENT Ql FLACEMENT 1 
LDA DFLFTR i rc POINTE r CANE TANT i WE oj 
STA FULEPTR "oy MY CURRENT Pb Le A et 
CALL REAL Peete 7 HEE TOF 1 6 awe 
CALL CHLE Ho HDDRESS OF BLOCK 17 noe 
RRR ERE KER SER HERRERA eee te ee eh ho eae eee ree | ae i | 
+ NOW SEE THAT LSD IS BEF feta * i> ea913 
iii "gan = aah eae ac i ian Hots 1 
LDA PIDEFs Pook HT ee WORT Bae 
BT PSEFBsNCeuee , ho of hogs BEF ik h del 
AEE ACRAEA ERMA AREER AERA SR eS ee ey ee ee © Tr eee OH ee ed Sap Rae ear ee ' ace 
* EBLEE SIGNRL ERROR “HE they te . ij eee | 
KKK MEMRERARERRK KEE REMERRRE RES CREED ATOR A RABE ROREEHE EHO 4 DOERR ORES OD < : ‘ 
LDA UDFLNE mart oF ERROR COE ! A : 
STA ERR YF S  eded PS REE OE HOLE 
JTF SYNERE ste Ff “JOWAL EFRDOR in 
RAK RAKKRKRSCKRRKRRHE CRT STERNER Eee eae aa ee a ee Re oe ae : 
” WORK AREAS AnD EUR: Foe Lou al owtk . 3 
(tee ee ee ee eee RPP eee ee ee ee ee ee ee ee ee ee ee ee ee ee ae se 
NCesea EOU BY S it 3 Oh belt el B f eRe Fier faye peta 
NC6530 DATA ef “ee A Gt rie ae Sar ah : 7 
NCesdo EU FIVE : at L? ty 
EEC | P Veee 
Eee eee e eee ee eee ae es 2 ee ee 2 ee ee ree a ee eee 2 ae ee ee ear ee ee Fibre TP OBeeS 
és * 17 Vt339 
*® TITLe - NUMERIC EXTRACTION Fi) et s? O0940 
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e37i ® *@ 17 00941 
e372 " PURPOSE - * 17? OG094de2 
e373 THIS ROUTINE CONWERTS ASCII NUMERIC INPUT CHARACTERS m 17 O0943 
e374 * TO INTERNAL BINARY NUMBER. RESULT IS RETURNED * i?f go 94d 
ec3/75 ® IN THE @ REG. * if fu34ds 
2376 ™ * jf 00946 
e377 ™ CALLING SEQUENCE - * if oosd,; 
e373 ® CALL NUMBER * 17 O0948 
eor9 * * if 00949 
“350 AMM KKRRARRKARARKMR RMR KARA KARAS R RAK SEKR KCK AKASAKA KKRAREKRRARRRKRRERR RS i? ogo0Ss50 
1546 000000 A 2381 NUMBER ENTR ENTRY CELL i? nossi 
i547 014704 A 2382 LDA CHAR PICK UP THE CURRENT CHARACTER ify Ouvu*5e 
15350 144710 A 2383 SUB C0 REMOVE CHARACTER ZERO 17 90952 
1551 054031 A 2384 STA NC6700 TAKE AS INITIAL VALUE 17 nossa 
1382e@ 020471 A 2385 LDB TEN LOAD CONSTANT TEN 17 06955 
15353 064030 A 2386 STB NC62710 USE AS DEFAULT RADIX if 00956 
1534 001016 A 2337 JANZ NHC6610 SKIP IS OTHER THAN ZERO i7 noss? 
1555 001560 R 
15356 010424 A 2388 LDA EIGHT LOAD CONSTANT EIGHT if govss 
1557 90540e4 A 2389 STA NHCé6710 USE AS OCTAL RADI i? o0n959 
LIF] RRR AAA KEKE TERE KEE EHEC MMO! PF Ad 
e392 #® FETCH NEXT CHARACTER AND DETERMINE IF IT*= NUMERIC * if O0%96e 
C3293 BRERA REK KAA AEST HCC ERE AECL RAE Oe eH IF oOooses 
1560 002000 A 2394 NCG6SB10 CALL FETCH, NC6620 QRTAIN NEXT INPUT CHAFACTER L7? UO Se 
1361 0017327 R 
iS6e 001600 R 
1563 144675 A 2395 SUB co REMOVE CHARACTER ZERD if 080%65 
1564 001004 A 23S$6 JAN NCé6620 IF LESS THAW 2GEFOs CANNOT BE NUNERIC if bosee 
1565 O0016600 R 
1566 144015 A 2@39g/7 SUB NCé6é/7ig REMOVE FPADI* if o0vs6? 
1567/7 001002 & 2398 JAP NCé620 IF STILL FOLITIVEs TOO LARGE A VaLUeE 1? oges 
1570 901600 P 
es39 EJEC i? O0%96% 
“dao EEE SRS ARE EE SS ERAS ETRE CLAASSEN SS ERAN ETE RR ee 17 oo3sero 
e401 *™ THIS CHARACTER [IS NUMEFRICs ADD INTO RADI *¥ i? O097 1 
ed40e * ACC = ACC *® RADI + CCHAR - 'O'3> ify bose 
C405 FARRER SHREK KREME EEE EERE EERE EERE EERE REE ESE EEE REED i? bos? 
i571 014662 A 2404 LD& CHAR Fick UF THE CHAFACTER if OO9e%4 
i572 144666 A 2405 SUB co REMOVE CHARACTER ZERO ivy @0975 
i573 024007 A 2406 LUE NCé6700 LOAD Poe ous RCCUMULATOR VALUE i? 003976 
1574 164007 & 2407 Miih NC6710 TIMES RADI PLUS THIS DIGIT 1” 00977 
i375 064005 4& e408 STB NC6700 STOW BACK INTO ACCUMULATOR i? sns?7e 
1576 O01000 A 2403 JMr NHC6610 CONTINUE juneR ES slanh iy oo379 
i577 001560 FR 
C411 RRR EERE RES KREREHEE ERE EEEEH EEE EEA EEE TES EEHEEREEEE HERSEK EEEEREHR PF SY 
e412 @ NUMBER IS NOW COMPLETE: SINCE A NON-NUMERIC Wat SENSED, x {ff OBSSe 
ce4i3 ™ LOAD THE RESULTING NUMBER INTO THE A FPEG AND * iv? OQOSBS 
esiqg & RETURN TG THE CALLER *# i17 )uaed 
C415 ERRATA ESE EERE KEE EEE EEC TERE EERE EEE EHEC EHEC EEE EE HERES HEH YF FES 
1600 Nidnode A F416 NESBS620 LDA NOS? 00 PICK UP THE ACEUNUCATED YaLUe 1? nuosse 
1601 001000 A e4i7 JME ® NUMBER FETURT TO THE EStLLer ie UOszer 
1602 101546 FR 
@“4¢193 Ee Ae es ee ee eee ee i? 0909869 
ed¢ci *™ DaTA AND WORK AREA FOR NUMERIC ECxXTRACTIOH ROUTINE * {Pf Ousago 
ed+e1 AEREREERERERMSEAES ES EOL KERREEARRS CEREEEE SE ECAD ECAR AE EKERS RAKE 1- bugseal 
1603 000000 A @4e2@ NCEZON DATA 0 NUMERPICAL wACCUMULATOR if 0093992 
1604 On00000 A @€423 NCO6Z710 DATA (i RFADI* STORAGE i? Ou99S 
e424 EJEC 1? Asad 
2425S Ee ee eS ea VESSEL Te P SERRE ENE RESET SO ee ST eee Rees i? ghass 
efce &® A TUID Wat SENSED: INTTIALIZe and TORE Tok FIRST CHARACTEP * 1/7 OG?96 
e4e7 CWA ORE KORG D LOMAS OEE OE eB La Ra RL A KAR 17 Hosa? 
1605 014646 A @4283 NCSBSON LBA CHAR PICK UP THE CURREMT CHeaeACTER 17 UWOSsSEe 
1606 054631 4 @423 STA THID TREE AS FURST HHPALTER OF TUID ify nh#oass 
1607 014653 vA 2430 They ELAME Finck He a BLN if Utoon 
1610 Q54630 A e421 ae ie TUL D+) LE ak Woe i e i’ O100) 
1611 054630 a 2432 > TH TuUIERre LEHF WORD = if? hiuve 
lpi2@ 054630 46 #433 228 THID+? - b. FAR JEEE? i? 013806% 
1613 @1042e A 2434 L Te Tihid PlSK UP Me “PONS TANI THO Le hiddd 
1614 O54111 A 2435 ae Nolesa0 AND USE «& iLNITiGan $INDES if obignh’S 
S427 RRR REET EERE EEE REE HEH HEED EHDA RE TEER EHTS eH CCR OHM SH! TP Hind? 
cedo35 ® NOW FETCH NEXT CAHRACTEF AND Craectk FOR ALPHANUMERIC * i? O1008 
Sh RRC RESET EEE EEE ESE ER OT EAE EEE EEE EETEOHEREE EERE OE CEESHEVEREREEEDEEE® i> 01005 
1615 o02000 A €440 NOS6BS10 CALL FETCHs NCESSO OFTAIN THE KHEXT TNHPUT CHARACTER 17 g1f10 
1616 ONL? Se R 
1617 001652 R 
WwWeo 144640 A 2441 SUE Cu COMPARE TO LOWEST NUMERIC i? o01011 
1621 a0nN010904 A 2442 JAN NC6530 F NOT AL PHSHUMERICs SRIF TO RPEAD TIB if 01612 
162e@ 001652 FR 
1623 140471 A 24453 SUB C3MQ REMOVE RANGE GF HUMERICE ty BIBTs 
l6e4 O01004 A 2444 JAN NCeseeo ,KIFP IF CHAR ITS NUMERIC 17 01014 
16¢e¢5 001635 FR 
1626 014625 A 2445 LDA CHAR FES TOFE CURRENT CHARACTER i? 01015 
1627 144632 A £446 SUE CA COMPARE AGAINST LOWEST ALPHABETIC i? 01016 
1630 001004 A e&44F JAE NC6BS SD IF HOT IN ALPHABETs SKIP TO READ TIE 1? OG101/ 
1631 001652 R 
1632 144631 A 2448 SUE CZnea REMOVE FPANGE OF ALPHABET if 01916 
16393 ON10028 A 2449 Jao Noes sag IF AOT ALPHABETICs SKIP TO READ TIB i? O1019 
i634 001652 RP 
“45? RES ARERR ES ERA RANE RRR RM RL ROKER MEREMERE KARR ERAN ee ee 17 O1b21 
e45c ® CHARACTER IS ALPHAHUMERICs STORE in TUID ¥YECTOR * 17 g102e2 
P4593 LAUNNRRAKRRARRESEN EWS D ARREARS SEATON TS woo We Oe ORME Ce ow eke eee eRe li? ov1023 
1695 014070 A 2454 NC6320 LDA NCoegoo Piel UP CURRENT INDES# i? bided 
1636 140465 A #455 SUE FIVE COMPARE AGAINST Mat VALUE iy vGioeds 
1s3? O01002 A 2456 JAF STHERR IF TOO LARGE» STGNAL SYNTAX ERROR if 01026 
1640 000133 R 
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ELSE RESTORE INDE 

ADD IN BASE LOCATION 

COPY TO INDEX REGISTER 

PICK UP THE CHARACTER 

AND STURPF INTO THE VECTOR 
THEN BUMP INDEX 

LOOP TO TRY THE NEXT CHARACTER 


LES EESE SES CERES SEE ES Se ee ee eee ee eee eee eee eee eee eee ee ee S| 
ND OF TUID HAS BEEN SENSED: 


HOW PACK TUTD INTO PTUID * 


KRAMER ERA HES EERE EER EE ERKER RES EUR EE EERE KR EKER ERS EH REE 
NC6830 LDA 


AKER A 


TUID PICK UP FIRST CHARACTER 
LRLA g SHIFT LEFT IN WORD 
GRA TUID+) UF IN SECUHD CHARACTER 
T&é PTUID SAVE AS FIRET PACKED WORD 
LDA TUID4!? FICK UP THIRD CHARACTER 
LRL«A 8 SHIFT LEFT IN HORE 
DRA TUID+3 OP IN FOURTH CHARACTER 
STA PTUIDe+!L SAVE AS SECOND PACKED HORT 

OE A 

NOW READ ONE INDEX SECTOR FROM FILE V¥VTSRFT * 


ETT TET ETE TET TEC CLOT ELT CETTE CECT CCOCCT OLE ET CCT ETC TTT Te 


LDA DFTPTR FICK UWP FCB POINTER CONSTANT 

>TA FCBPTR It E AS CURRENT FCB 

LTA ONE LOAD f& CONE TANT ONE 
NCé6éS40 STA SECTS TREE AS LURRENHT SECTOR NUHEBER 

T2Ze FERFO WwW FEG 

STA DItRF HEE @t INITIAL BIS PLACEMENWT 

CALL RE RD RPEAU THe [HRER =TECTOR 
MME REA EERE RRM R ERA EES EERE REE RE REO EET ER EEE OE OO RO 
¥ SEGRCH INDEX SECTOR FOR Till FAaATCH * 
KRERERKER ERE EREE ER ERR ERMERE CERES EE OE EEEEEREEREEEEEEREEEDEREERDERH ERE EBS 
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SUB SECTOR LOrMPARE TO AUMBER OF TIB*= IN SECTOR 
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JAP HCé6860 IF GREATER THANs SKEIP TO READ NEW ESECTOR 

CALL CALC LOMPUTE BLOCK BENRES*S IN & REG 
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SUB - PTUID LOMFARE AGERINESET PRCHED ULER TUID 
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SUB PTUID+ 1 COMFARE GAINES T PACKED USER TUID 

JAZ NHCe8o So TF EDPUSL, RETUEN TO THE C&LLER 
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PURPOSE - 4 

CALC [3 & GENERAL- Rumi THi TO CAG. AT THE * 

ADDRESS OF BLOCKS THE Uisnm BUFFER, * 
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CELL "BLEKEPTR® ; i. 

“ 

al SEQUENCE ~- e 

ALL CALC * 
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ENTRANCE PARAMETERS + 

NONE * 
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“636 BERR EEE EEO REE AEE ETE CE TERE EE Re LP OI Po 
ces7 ® FETCH CONSTATS AND WORK AREAS * 17 O16. 
2632 EXER EKREKEKSCKREKRE EKER EE EEE ERMA AEE RRR EERE EER RR KOO MOREE LP FS: 
Q0OeB1Z7 ONFSS0 A F689 NO2F SCO LERA 8 SHIFT A REG RIGHT QNE BYTE tL? hte" 
c640 EJEC if Biel 
SE d |] RESREKERSE SKE EE EEE ER KEARSE SEHD EEE VE RH RAHK REDEEM EKER HERE RE RS OO SERE]D LP Hil: 
SPEd4D & “M47 € £2 bs 
c©43 ® TITLE - RAD READCWRITE ROUTINE eA? Be Ls 
ce4¢4 * * {7 PREY 
“645 ® PURPOSE ~ * 7 ote t 
cb46 * THESE ROUTINES PROVIDE wAN INTERFACE FOR THE CALLER TO THE TWO - 4 Ga £4 
ced? *® RMD-RESTIBENT VTAM FILESs VTERFL AND VISDFT. *¥ Uy ebet 
e645 ® * {Pf Ae4 
“649 ® CALLING SEQUENCE - * 17 68: ei 
c6S0 @ PALL READ * £1 eee 
cféS5i * CALL WRITE * 27? Gt Sp 
ces2 #@ x 47 ji : 
e653 ™® ENTRANCE PARAMETERS - x Dj 
e654 * SECTN IS THE DESIRED SECTOR NUMBER TO TRANSFER * | 
655 FCBPTR -IS THE FCE TO BE tlseD FOR THE TRANHE PE pe * +t, 
Cla | me + = - 
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“£59 CREE EERE REESE EE EERE EEN ES ERE EEE SERRE ERE EEE OEE EEE EHR EK HHO OD 
c6éeEg *® READ SECTOR ENTRY POINT : 
C6 | EEE KES ERE EEE EERE ERK EH TESTE HERE N ERE ERE EEE EERE EERE EERE REO HO OR 
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HN0e2035 054065 A F682 STA NC?7730 ANN Poke AL LAST FEB-LSED be bebe 
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SET MERE ERE EAE REE ARERR RHEE Re EMER EEO ROEDER EEE EE REE OME EHH TP 1S 
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LDAE KEY PICK UP THE RETURN ADDRESS 1 
STA NCB8048 FLACE IN RETURN SEQUENCE 1 
LDAT BUF FOLINT TO INPUT BUFFER | 
STA NC3180 STOW INTO DCB 1 
De NCS8120 FICK UP READ OF-CiULE i 

CMR RENEE EEE RCRA OER ROR EY 

COMMON SEQUENCE * ji 
KLEE ERE RRR EEE R AEE HER ERR EERE ST EREE EERE REM RRR ERR ROM EH j 

STA NCSd3e =TOH OP-CODE IN MACRO 1 
READ NCSlE020:0:0 ISSUE REQUEST i 
NOSQS0+3 POINTER T GP~CODE: SLOT i 

STAT NCSOSOs, EXIT», EXIT» EXITS ERIT { 


SRHRERKELARSEKKRAKCRAK KARA EKCHAKAAKREHAK EERE KRER REE REE RKEREHRHREEEEAHEREREAKR EB EK 


*3 “J 


oe i a Ms i 


“sd 


1? 
* IF OPERATION WAS "WRITE':s LINE BUPFEFR fLUST BE CLEARED * i? 
0 NOR OE OE EE ERED EEE HERE ESCHER ARNT DESO SHRED ES EH Se 22 BREE EEE EEE ae 
LDAE NCs8ose PICK UP LAT OGF-COBDE tL? 
SUE NC9140 COMPARE TO WRITE OFP-coDE ee 
JAHZ HCceo4do IF NOT WRITEs ZTKIFE TO RETUPRN L? 
LOSI LINE FOTAT TOGO LINE EUFFER Le 
NCsass LDA NC#190 PICK UP Aa BLANK i? 
ST4 Os STORE THO BLANKS ae 
INCE o45 BUMRF «= AND ae Ti oA Le 
SUEI LHEND COMPARE AGAINS cnn OF BUFFER | 
JAN NC&GO38 IF tHE IDEs CBONTINLVE LOOP 
SPREE SHER ESSEC ERK RSET E KES E ST EKER ESHA TEESE EK SE SSE SCKREK EKER EE HS 
* RETURN SEQUENCE + 
EER FRREKCSERSHRAARAREAR SHER HFRESAARASA EHEC SRAARRSSSRSRKRAEKEERRES HERS HKREREHE 
HCBOd€H JMP ll RBETIURAM TO THE CALLER 
HOCSO48 EWU em i rWwWeE FeEA FOR F REG L 
42 EEE RARE RRREREREK EERERRREER ES Se i 1 
* LOCAL CONSTANTS AND HOR wzrEAD FUR FEN -TYRE © iP 
HPSS SCRHES SERCO SHEER HES EEE ER EH RE eee 4 
NCa1led ToOmMac WALTsAECIT se PE Rn oe.s THLUA 1 
NCSido TOMAc WaAITs & ‘<a RiLTor,s OUTLUG iF 
NCSi6e0 DATA LHEMT-LIWE FISE TDR Lei TH FER L? 
NCSisao Pata 0 VHREEABLE FRecopt asuwieres & ir 
DATA I Lit 
NOG 1 90 DATA " . SIOQHELE Eb altho (Pu 2 i awit 1+ 
EJEC 3 
SRFEARRRAECKRHSERRRREES SRE OO eR a ee ATR CR j 
‘a be 
* TITLE - GENERAL WORD NAVE? weoilTiInkg ~ oe 
* ‘we 4 F 
* PURPOSE - . M 4OF 
+ THIS ROUTINE IS WSED TO HOVE WORDS AaROURD. IT'S * if 
+ PRIMARY USE FS FOR SETTING Ye THE VaRITOUS MESSAGE FIELDS. “47 
* * |? 
* CALLING SEWQUEHCE - . 4 
* PALL MOVER sFROMs Tide .uuT “" 1, 
* “ t.: 
* ENTRANCE PARAMETERS - aes | 
¥ FROM SOURCE GAnnDRESS " 
* TQ HES TINATION ADURESS sa 
: COUNT WUMBER OF WORDS TO KRAVE ae (a 
: | 
SREFCERKRKRERSAEKSEKSKERSEMREREKRHSREHK SE CESK SERRE W ERR RE ROW Ew ER eee we ee. qo 
CREEL ERASERS KER AA EO 4 SRK RHK EEE ETE EEE BED Riess Se ee ee ee ee fee 
* FICK UP ECRLLING FRRPANETIST = ee os 
RRSSCRCARSSCHERRHKREREES HR SERSAEER RTS. CER SERRE RSA HROAD LAY DO OM HRD ORE OE Oe PEs ae 
MOVER ENTR | “ER EEY CEE 1? 
LOAXE MHOv¥ER lune HIF PRRANETER LIST AblRE:®= a 
LODE Os Pick UF CRIM Aofber 2 = 1: 
Lo ls Eph UF TE AORFE -: 
STH Heed1o Se F OF! FE ty 
LOA coedk "othr UF ORD 0H) 
STA NCes5ag ae. Ta EXBEERPR EF be b 
TAR oer FREI 1 Bor Tu & BER 
ADD THREE FUP OVER PaRR Litt \ 
Ta AHCe e568 SRewWE AS RPETUPH “ieee: & Le 
Luxt it Frere Ue TO AbBgetb. ; Ls 
NCS4ifa Eau eae | PULTE Pe TEA ee? ESE Lg? 


Li 
i 


ae 
i 
a 


aw 


E~V¥TAM NCM PROGRAM PAGE 2 LISTING PAGE ¢ e231) 


es a 


Se 


e861 EJEC 1 
CHC REREKRKRKKAKARERRARERAAKREKESAKRK ASK SRA AAA KARR { 
“S63 ® NOt MOVE THE REQUESTED NUMBER OF WORDS “ i 
Gh RE DRE ORE UE ESE oe Eee eee RE DOT EE Oe Re 20 Gre ee eC SNe DRE ame RE SOC SRE ee Se E00 EOE ee Se SNE See] 
002254 014014 A 2855 NCOS420 LDA NCB500 PICK UP CURRENT COUNTER CELL 1 
0902255 005311 A 2866 DAR DECREMENT BY ONE i 
Q0e2256 054012 A eBb6e7 STA NCeSo0 RESTORE IN COUNTER CELL 1 
O0P257 ON01004 A 2868 JAN NC8450 SKIP DUT IF COUNT IS SATISFIED 1 
NOe2260 DH2267 R 
HNOeee1 OL16000 A 2869 LDA OsB LOAD A WORD ‘A 
DOP262@ OSSO00 A eeero STA O11 MOVE THE WORD 1 
002263 OO88ie2e A 287i IBF BUMP SOURCE POINTER i 
N0e264 OOS144 A EEZe2 LAR BUMP DESTINATION FPOINTER i 
OHOe26S 001000 A 2873 JMP NCe4e0 CONTINUE MOVING 1 
002266 OAD2254 R 
SO75 MERCER ER MEME CARAT 
esré * RETURN LINKAGE TO CALLER * 6 
O77 BPEKREKRREAASEEKAREAEKRKARAKKRKRKEKKARRAR EKER KREKRR EE EKER AAR ERRKKAKKRRRARRRKRREERE j 
ON0eeb67 OH1000 e378 NCS450 JIMP 0 RETURN TO THE CALLER l 
002270 no0000 FA 
002270 F 2879 NC#L4EASS EU *-] SAVE AREA FOR RETUFN FF: DDRESS i 
See +e ESC CCC ECR SERRE SRE ECM RSS SES HERTS SECRETE SEHR SEKRESCETS KRSM ESSEC BREESE RES SS j 
cbae * LONSTAHTS AND WORK AREHD FOR HOVER ROUTINE * |i 
CSS 5 KMRRKE RAE REE MREKEK ERK REE KEES EER EERE EEE EERE REREAD | 
O028@271 Onan00 A FES4 NEBSOO DATA 0 AREA FOR WORDT COUNTER 1 
cess EJEC | 
25906 EERE MESS RRA EERE RET CREST AEA ERATE EROS RRR CRE! { 
e3s7 *® * | 
feeeg ® TITLE - FIND LOGICAL TEPNINAL NUMBER fOUTINE * i 
eseg * * i 
ce30 ® FPURPDSE - * | 
eboi *™ THIS ROUTINE MAPS 4 TUID TO A LOGICAL TERMINAL * i 
es9e ®™ NUMBER. THIS NUMBER IS REGUIRED IN ALL VTSIOC REGUESTS * 1 
cs9o3 * FOR TERMINWALS. * 1 
casq & * j 
e295 © FUNCTION - * 1 
else * THE LOGICAL TERMINAL TABLE LTTs Js SEARCHED +tOrF aA * ] 
cag * HON-2ZERO ENTRY. THIS. ENTRY POINT. TO A TCL. TF THE * | 
ees * TUID IN THE TED MATCHES THE REGUE Ten TULEs. CELL LFIN £8 SEF Te * i 
ceay @ THE OFDINAL OF THE MATCHING LTT ENTRY TF HO MATCH IS FOUNDs * 1 
“9nn * THEN THE FUID I8 NOT CURRENTLY OFCH aNd -ERFG [3 RETURNEB IN CELL * |] 
cvu) = TIN. & |} 
eShe * * 1 
e903 ® CALLING SEQUENCE - * j 
ec 7Gi4d * ono) on GETLTN * | 
e3t5 & x i 
2’Sie * ENTRAHLE PARAMETER: - * | 
ean CELLS PTUID MUST CONTAIN THE TUIB TU BE MAPPET. * 4] 
e905 * * | 
739759 £REREKKERM AERA REET HAE ERASE EEE EE EEK EERE ERE EKER KEE ELEKRER KEKE RARER |{ 
O91] REESE ER REE EEE EEE EEE EEE TOE] 
cvigc * ENTRY POINTs Save REGS AND THITIaLI2e FUrF THE Lite * 41 
P35] > ERE EK EEG EMER ERE EES ERED EEE ES EEE EERE OHH EE EEE EEE TREE ERE EEE EERE EHR jf 
e714 ExT ¥TStTT HEPRESS OF Ltt j 
0O0@2/7e2 O90000 A €3915 GETLTN EnTR Etli® CELL 1 
O0e2f273 010421 A #916 LDH ONE rFTCrR UF theme i 
N10ePWe74d OS4¢1i4¢N A Fal? STA LTT STORE CY RPESUET abi 1 
O0e@e 75 ONEBUS* A eBYlea L DRE VTSlLTtT PICK UP POINTER TO LT 1 
DHeerfe OOOH E 
“391% FJES 1 
CIPO ERECT FERS KHER STE EEE TE SEEKS EES TEESE EE HT EEC ERTS Hee SELAH ERS | 
cv2el * HOW CHECrF THIE LIT ENTRY x | 
SYS O RRR NE EOE EES OOS EEO RHEE CHEE HOARE ER OEE RCE SERN EHRER EHH HEE EEE ERE HE | 
aAnee77 Aesoan A 2923 NOLEN LITE es FICK UF LITT ENTRY 1 
HVL300 OULTOeb A Yea JB Hota au ThnHdoOoreE Tr ae if 
BOL2301 BO0eSiec PF 
O0e230e OB1601% A 23e5 L Lies TETDish Piece Or FIPIT THE CHAPHETERS OF TUILD 1 
NGO2303 144140 A FFE ik PTHID SHORE TH 64k Per EOTEB ae eh 
H02S04 OHI016 HW S27 tahz Nose 20 fe AUT EGaittis Lesfetar re] C17 oy 
OHeZ3I05 unesie FR 
HO2®3IO6 ALEQ16 ww F928 i. Dea Tee Des B Pick ter L  OHD TRO SHARBAELTERS OF TUID 1 
O02f30F 144155 A 2929 o LF PTUTLD+ 4 LOA ARE FTO YEP BE: TED TUIU 1 
HOe®F1O0 AOTALH A £930 ites Nise df IF E@tUnHL:s WE HAYE A MATCH Ll 
HP9Oe!S1LI AavVS3e!i R 
HAOe2Zie HOOSidds A 2931 NCBEIO IR ELs&£ BUAP LTT FPUIHTER 
O0F®313 OF¢4121 A E9Be INR LTT BELINP LTT SUMFER 
UOeRZ14 DQidlen A F933 LIA LiITh FICK UP CURRENT VALUE 
002315 140463 8 2934 SUB RHW COMPARE TO FIWAL VALUE 
UN2@3S1L16 OD1014 A 2935 JAN? NCe&eida IF NOT EG“UAL: COHTINUE ZEARCH 
002317 O02277 R 
2937 KRESS RKHRRKRRREKES RRR KRAHREKRHEEEE EEA EES RESEARCH STMAEAASE EMRE 4 
e923 & HERE MATCH HAS HOT FOUNDs STORE ZERO Lit LTTNs THEN RETURN a j 
S939 FRRERMEKRKRERAREKRKRR ERR RKCKRKA CHAE EES RER EEE HERRERA HEARSE HAREM {jf 
002320 054114 A 25940 STH LTTN STOW ZERG IN RESULT CELL 1 
NOe232@1 0914113 A F941 NCBS40 LDA LTTE FICK UP RESULT VALUE 1 
AQVeRB2e ONLNND A 2942 JnmPp® GETLTN FETURN TO THE EALLER 1 
GO0e2323 10ererfe FE 
e943 EJEC N! 
2Id 4G KREME RKRKRERREER KEKE ERMA EK STEM MEEKEAEEE A E RA RER AH | 
esv45 * “ | 
e346 3% TITLE ~ FIND CONTRFELEER TABLE RUWUTIPRE x 1 
esq # m 4 
e348 * PURFOSE - m= |i 
eva THIS ROUTINE LtOCATES THE CONTROLLER TeBies GIVEN THE UNIT NUMBER. *® i 
¢350 #® * { 
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